home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / modula.zoo / _defn_convert.mod < prev    next >
Text File  |  1988-04-24  |  733b  |  32 lines
  1. IMPLEMENTATION MODULE CONVERT ;
  2. FROM SYSTEM IMPORT VAL ;
  3. FROM AES IMPORT FormAlert;
  4. VAR  text1, text2 : ARRAY [1..80] OF CHAR;
  5.  
  6. PROCEDURE INT( a : CARDINAL ) : INTEGER ;
  7. VAR res : INTEGER;
  8. BEGIN
  9.    IF a >= 32768 THEN  
  10.       res := FormAlert( 1, text1 );
  11.       RETURN 0
  12.    ELSE 
  13.       RETURN VAL( INTEGER , a ) 
  14.    END
  15. END INT;
  16.  
  17. PROCEDURE CARD( b : INTEGER ) : CARDINAL ;
  18. VAR res : INTEGER;
  19. BEGIN
  20.    IF b < 0 THEN 
  21.       res := FormAlert( 1, text2 );
  22.       RETURN 0
  23.    ELSE
  24.       RETURN VAL( CARDINAL , b )
  25.    END
  26. END CARD;
  27. BEGIN
  28.    text1 := "[3][Fehler in Modul CONVERT|CARDINAL zu groß für INTEGER][Abbruch]"; 
  29.    text2 := "[3][Fehler in Modul CONVERT|CARDINAL wäre negativ][Abbruch]";
  30. END CONVERT.
  31.  
  32.